home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abm1.d64 / hello connect (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  664b  |  16 lines
  1. 5 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
  2. 10 POKE53272,21:POKE648,4:POKE55,0:POKE56,160:POKE51,0:POKE52,160:GOSUB38
  3. 12 SYS57812"SID PLAYER",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
  4. 14 SYS57812"FONT",8,0:POKE780,0:POKE781,0:POKE782,100:SYS65493
  5. 16 SYS57812"MUSIC",8,0:POKE780,0:POKE781,0:POKE782,108:SYS65493
  6. 30 PRINT"[144]LOAD"CHR$(34)"PRESENTER"CHR$(34)",8"
  7. 32 PRINT"RUN"
  8. 36 POKE631,13:POKE632,13:POKE198,2:END
  9. 38 POKE53281,0:POKE53280,0:X$=CHR$(13)+""
  10. 40 A$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  11. 42 PRINTCHR$(142)"[147][155]"X$"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  12. 44 PRINT"  [192][155][192][192][152][192][192][152]  RETURNING TO LOADSTAR...  [146][192][192][155][192][192][192]"X$;
  13. 46 PRINT"[145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  14. 48 FORI=2TO10:A$=MID$(A$,5):POKE214,24-I:PRINT:PRINTSPC(20-LEN(A$)/2)"[158]"A$""
  15. 50 NEXT:RETURN
  16.